COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN  "tshow"
C00003 ENDMK
C⊗;
BEGIN  "tshow"

 REQUIRE "TRJDPY.REL[AL,HE]" LOAD_MODULE;
   EXTERNAL PROCEDURE DISPLAY(STRING MESSG,NAME("TTEST.DAT"),TRJLAB(NULL));

    WHILE TRUE DO BEGIN "VIEW LOOP"
	STRING NAME,LAB;
	PRINT("TRAJECTORY FILE: ");
	NAME←INCHWL;
	IF NAME=NULL THEN DONE;
	PRINT("TRAJECTORY LABEL: ");
	LAB←INCHWL;
	DO BEGIN 
	    DISPLAY(" "&NAME&": "&LAB,NAME,LAB);
	    PRINT("TRAJECTORY LABEL: ");
	    LAB←INCHWL
	END UNTIL LAB=NULL
    END

END "tshow";